|
Inventor VBA : DXF Export auf Desktop
EKW am 21.08.2013 um 08:46 Uhr (1)
Zitat:Original erstellt von Bluejay:Public Sub CreateDXF() On Error Resume Next If ThisApplication.ActiveDocument.DocumentType kDrawingDocumentObject Then Exit Sub End If Dim oDoc As Inventor.DrawingDocument Set oDoc = ThisApplication.ActiveDocument If oDoc.FullFileName = "" Then MsgBox "Bitte zuerst die Zeichnung speichern... " Exit Sub End If oDoc.SaveAs Replace(oDoc.FullFileName, Right(oDoc.FullFileName, 3), "dxf"), True If Err.Number = 0 Then ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Makro oder ILogic: Ein-/Ausblenden Tangentialer Kanten
EKW am 12.07.2018 um 09:50 Uhr (5)
Hallo,ich hatte mir damals schon eine iLogic Regel per Makro (Button) ausführen lassen, dass in allen Ansichten auf dem Blatt der gleiche Maßstab verwendet wird. Das ist wichtig für unsere 1:1 Ableitung ins AutoCAD===Blattstab = InputBox("Der eingegebene Maßstab wird auf alle Ansichten, innerhalb des aktuellen Zeichnungsblatt, angewandt.", "Einheitlicher Zeichnungsblattmaßstab", "1 : X")On Error Resume NextDim oDrawDoc As DrawingDocumentoDrawDoc = ThisApplication.ActiveDocumentDim oView As DrawingViewFor E ...
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |